home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #9 / Commodore_Disk_User_Vol.4_9_1991_-_Side_A.d64 / memory transfer (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  1.7 KB  |  52 lines
  1. 5 poke53272,22
  2. 10 rem *********************
  3. 20 rem ** memory transfer **
  4. 30 rem **  by lee bamber  **
  5. 35 rem **   bugblasted!   **
  6. 37 rem ** by chris bamber **
  7. 40 rem *********************
  8. 90 lm=20000:poke53280,0:poke53281,0:gosub500
  9. 100 geta$:ifa$="[133]"thengosub1000
  10. 110 ifa$="[134]"thengosub2000
  11. 120 ifa$="[136]"thengosub3000
  12. 130 goto100
  13. 500 print"[147]                                        [146]";
  14. 510 print"  [198]1-[212]ransfer    [198]3-[214]iewer     [198]7-[209]uit  [146]";
  15. 520 print"                                        [146]";:return
  16. 700 input"[193]re you absolutely sure y/n ";yy$
  17. 710 ifyy$<>"y"thengosub500:goto100
  18. 720 return
  19. 1000 rem transfer
  20. 1010 fort=55338to55348:poket,2:nextt
  21. 1020 print"[212]ransfer data":print"                       20000"
  22. 1030 input"[145][197]nter start location ";sl:print"                     21000"
  23. 1035 ifsl<3000orsl>64000thenprint"illegal number!!!":gosub500:return
  24. 1040 input"[145][197]nter end location ";el
  25. 1045 ifel<3000orel>64000orel<slthenprint"illegal number!!!":gosub500:return
  26. 1046 print"                            22000"
  27. 1047 input"[145][197]nter destination location";ds
  28. 1048 ifds<3000ords>64000thengosub500:return
  29. 1050 gosub700:print"[208]erforming transfer!":a=0:fort=sltoel:l=peek(t):pokeds+a,l
  30. 1070 a=a+1:nextt:print"[207]peration completed!"
  31. 1099 fort=0to1000:gosub500:return
  32. 2000 fort=55353to55361:poket,2:nextt
  33. 2005 print"[214]iew data":print"[204]ast memory location >";lm
  34. 2010 input"[197]nter new location to view ";lm
  35. 2015 iflm>64000thenprint"too high!!!":gosub500:return
  36. 2025 print"[147][158][206]ote:- [208]ress space to return to menu!!!":fort=0to1000:nextt
  37. 2026 input"[200][201][199][200][204][201][199][200][212] [213][146]pper case or [204][146]ower case";hh$
  38. 2027 ifhh$="u"thengoto2030
  39. 2028 ifhh$="l"thengoto2500
  40. 2029 ifhh$<>"l"orhh$<>"u"thengosub500:return
  41. 2030 print"[147]":a=0:fort=lmtolm+1000:l=peek(t):poke1024+a,l
  42. 2035 poke55296+a,9
  43. 2036 ifl>64andl<91thenpoke55296+a,7
  44. 2038 a=a+1:nextt
  45. 2040 geta$:ifa$<>" "thengoto2040
  46. 2050 gosub500:return
  47. 2500 print"[147]":a=0:fort=lmtolm+1000:l=peek(t):poke1024+a,l:poke55296+a,9
  48. 2510 ifl<27thenpoke55296+a,7
  49. 2520 a=a+1:nextt:goto2040
  50. 3000 print"[147]":fort=0to255:poke53280,t:nextt
  51. 3010 poke53280,14:poke53281,6:print"[147][154] [194]ye folks!!! ";:end
  52.